home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / anime / anime.bas next >
BASIC Source File  |  1991-10-18  |  1KB  |  37 lines
  1. 1000 'アニメーション プログラム　　　　　　　　　　　　       
  2. 1010 '　　　　　　
  3. 1020 '　　　90.05.11     ＳｔｕｄｉｏＫ＆Ｍ　長太郎　　 　　
  4. 1030 '
  5. 1040 SCREEN@ 1:SIMPOSE ON
  6. 1050  CLS
  7. 1060 CLEAR,,256,(FRE(4)-1200),256
  8. 1070 QQ=INT((FRE(4)-1200)/28000)
  9. 1080 LOADM "digit2.rex",0
  10. 1090 LOADM "out.rex",128
  11. 1100 DEFINT A
  12. 1110 MOUSE 0
  13. 1120 MOUSE 4,0,0,180,140:PRINT QQ
  14. 1130 DIM A1%(14000*QQ)
  15. 1140 X=90:Y=70
  16. 1150 CALLM 128,&H0440,27
  17. 1160 CALLM 128,&H0442,&H0017
  18. 1170 '
  19. 1180 LINE(0,0)-(319,239),PSET,[0,0,0,1],BF
  20. 1190 IF MOUSE(2,0) THEN 1200 ELSE 1190
  21. 1200 FOR LOOP=1 TO QQ
  22. 1210 CALLM 0
  23. 1220 GET@A (10,5)-(149,104),A1%,(14000*(LOOP-1))
  24. 1230 NEXT LOOP
  25. 1240 '
  26. 1250 SIMPOSE OFF:CLS
  27. 1260 FOR LOOP=1 TO QQ
  28. 1270 PUT@A (X,Y)-(X+139,Y+99),A1%,,,,,(14000*(LOOP-1))
  29. 1280 GOSUB 1310
  30. 1290 NEXT:GOTO 1260
  31. 1300 '
  32. 1310 IF SS=0 THEN MOUSE 1,47,33
  33. 1320 IF MOUSE(2,0) THEN X=MOUSE(0):Y=MOUSE(1):SS=1
  34. 1330 IF MOUSE(2,1) THEN IF MOUSE(2,0) THEN SYSTEM ELSE SS=0:X=90:Y=70:SIMPOSE ON:GOTO 1150
  35. 1340 FOR RR=O TO 200
  36. 1350 NEXT RR:RETURN
  37.